CD Fun House 1/CD Fun House (Wayzata Technology).iso/•Word Games•/HyperJotto 1.1 ••••/HyperJotto 1.1 ееее/card_15169.txt

Text File | 1988-02-01 | 26KB | 1,188 lines

-- card: 15169 from stack: in.1 –µ–µ–µ–µ
-- bmap block id: 18190
-- flags: 4000
-- background id: 2275
-- name: Player
----- HyperTalk script -----
on OpenCard
  click at 321,100
end OpenCard

on MouseUp
  click at 321,100
end MouseUp

on Idle
  if last char of card field "Guess" is return then
    delete last char of card field "Guess"
    send closefield to card field "Guess"
  end if
  if card field "Guess" is empty then
    click at 321,100
    wait 15
  end if


end Idle

on definition
  Global Target, Tgtpointer, LongClass
  put "Definition" into card field "Guess"
  if the visible of card btn "Hide" is true then
    send mouseUp to card btn "Hide"
  end if
  set the lockscreen to true
  put first char of Target into initial
  get line Tgtpointer of field "DEFNS" of card initial
  put it into defn
  if it is empty then put "Considered Self-Explanatory" into defn
  put Tgtpointer * 4 - 3 into pointer
  put char pointer to pointer + 3 of field "CLASS" of card initial into checkclass
  put checkclass into temp
  translate checkclass
  if first word of defn is "of" and last char of temp is "P" then put "Plural " & defn into defn
  if first word of defn is "form" then put first word of LongClass && defn into defn
  put Target & " — " & defn & return & return into card field "Message"
  put LongClass after card field "Message"
  set the lockscreen to false
  show card field "ClickMsg"
  show card btn "OK"

end definition

on PlayAgain

  if the visible of card btn "Clear" is true then
    send mouseUp to card btn "Clear"
  end if
  put empty into card field "Results"
  put empty into card field "Guess"
  picktarget
  show card btn "Filters"
  show card btn "Change"

end PlayAgain

On translate checkclass
  Global FilterTable, LongClass
  put empty into LongClass
  repeat with n = 4 down to 1
    if char n of checkclass is "*" then next repeat
    put number of words of line n of FilterTable into limit
    repeat with m = 1 to limit
      if char n of checkclass = char 1 of word m of line n of FilterTable then
        put word m of line n of FilterTable && LongClass into LongClass
        exit repeat
      end if
    end repeat
  end repeat
  if last word of LongClass is not "Name" then
    put LongClass & "Word" into LongClass
  end if

end translate

on Archive
  Global Target
  get the number of lines of card field "Archive" of card "Archive"
  if it <> 0 then
    put return after card field "Archive" of card "Archive"
    put return after card field "Archive" of card "Archive"
  end if
  put "--- Archived at" && the time && "on" && the abbr date && "---" & return after card field "Archive" of card "Archive"
  put card field "Results" after card field "Archive" of card "Archive"
  put "                           Answer = " & target & return after card field "Archive" of card "Archive"

end Archive




-- part 1 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=203 top=90 right=116 bottom=328
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 22
-- part name: Guess
----- HyperTalk script -----
On CloseField
  Global Target, Level, BadWord, FilterGuesses, LongClass
  -- if player types more than one word, we ignore the surplus
  set the cursor to 4
  put first word of card field "guess" into guess

  CLICK AT 325,105
  CLICK AT 325,105
  --  put "CHECKING" into card field "guess"

  -- check length of guess

  if the number of chars of guess <> 5 then
    play boing
    answer "Guesses must have five characters"
    put empty into card field "Guess"
    exit CloseField
  end if

  -- capitalize guess and check for all letters

  put true into goodword
  repeat with i = 1 to 5
    get chartonum of (char i of guess)
    if it ≥ 97 and it ≤ 122 then
      put it - 32 into temp
      put numtochar of temp into char i of guess
    else
      if it < 65 or it > 90 then
        put false into goodword
        exit repeat
      end if
    end if
  end repeat

  if goodword is false then
    play boing
    answer "Please enter letters only."
    put empty into card field "Guess"
    exit CloseField
  end if

  -- CHECK TO SEE IF YOU'VE WON

  if guess = Target then
    youwin
    exit CloseField
  end if


  -- CHECK TO SEE IF THIS IS A REPEAT

  put offset (guess,card field "Results") into temp
  if temp <> 0 then
    play boing
    answer "You've already guessed " & guess
    put empty into card field "Guess"
    exit CloseField
  end if

  -- LET'S GO SEE IF WE KNOW THIS WORD

  put first char of guess into initial
  put 0 into base
  put 0 into pointer
  put length of field "WORDS" of card initial into limit
  repeat
    put offset (char 2 to 5 of guess, char (base+1) to limit of field "WORDS" of card initial) + base into pointer
    if pointer mod 4 is 1 then
      exit repeat
    end if
    if pointer = base then
      -- we don't recognize this word
      play boing
      Answer "Sorry, I don't recognize " & guess
      put "•••••" into guess
      exit repeat
    end if

    put pointer into base
  end repeat

  -- NOW CHECK TO SEE IF guess isn't filtered out
  put false into goodguess
  if guess <> "•••••" then
    put true into goodguess
    If FilterGuesses is true then
      put char pointer to pointer + 3 of field "CLASS" of card Initial into checkclass
      checkfilters checkclass
      if BadWord is not "****" then
        translate BadWord
        put last word of LongClass & "s" into last word of LongClass
        play boing
        answer "No " & LongClass
        put empty into card field "Guess"
        exit CloseField
      end if

    end if
  end if


  -- NOW GET RESULT
  put guess into cguess
  put Target into ctarg
  put empty into result
  if Level mod 2 is 1 then  put "-----" into result
  if goodguess is true then

    get offset (char 1 of cguess,ctarg)
    if it is not 0 then
      if Level > 2 then put "*" into char it of ctarg
      if Level mod 2 is 1 then
        put char it of ctarg into char it of result
      else
        put char it of ctarg before result
      end if
      put "*" into char it of ctarg
    end if

    get offset (char 2 of cguess,ctarg)
    if it is not 0 then
      if Level > 2 then put "*" into char it of ctarg
      if Level mod 2 is 1 then
        put char it of ctarg into char it of result
      else
        put char it of ctarg before result
      end if
      put "*" into char it of ctarg
    end if

    get offset (char 3 of cguess,ctarg)
    if it is not 0 then
      if Level > 2 then put "*" into char it of ctarg
      if Level mod 2 is 1 then
        put char it of ctarg into char it of result
      else
        put char it of ctarg before result
      end if
      put "*" into char it of ctarg
    end if

    get offset (char 4 of cguess,ctarg)
    if it is not 0 then
      if Level > 2 then put "*" into char it of ctarg
      if Level mod 2 is 1 then
        put char it of ctarg into char it of result
      else
        put char it of ctarg before result
      end if
      put "*" into char it of ctarg
    end if

    get offset (char 5 of cguess,ctarg)
    if it is not 0 then
      if Level > 2 then put "*" into char it of ctarg
      if Level mod 2 is 1 then
        put char it of ctarg into char it of result
      else
        put char it of ctarg before result
      end if
      put "*" into char it of ctarg
    end if
  end if

  set the lockscreen to false
  set the locktext of card field "Results" to false
  get the number of lines of card field "Results"
  put it +1 into nmbr
  if length of nmbr < 2 then put " " into spce
  else put empty into spce
  put spce & nmbr & "." && guess & "  " & result & return after card field "Results"

  set the locktext of card field "Results" to true
  put empty into card field "Guess"
  set the visible of card btn "Filters" to false
  set the visible of card btn "Change" to false

  -- CHECK TO SEE IF YOU'VE USED UP YOUR GUESSES

  if the number of lines of card field "Results" is 23 then
    youlose
    exit CloseField
  end if

  type tab

end CloseField

on youwin
  Global Target, Tgtpointer
  play "Boing" tempo 240 "d4 e f g fh. ee d c d e f gq a gw"
  answer "Congratulations! You Win! — " & Target with "Archive" or "Definition" or "Play Again"

  if it is "Archive" then
    Archive
    PlayAgain
  end if

  if it is "Play Again" then
    PlayAgain
    exit youwin
  end if


  if it is "Definition" then
    definition
  end if

end youwin

on youlose
  send mouseUp to card btn "Give Up"
end youlose




-- part 2 (field)
-- low flags: 01
-- high flags: 2000
-- rect: left=164 top=121 right=192 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Message


-- part 4 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=16 top=49 right=326 bottom=133
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Results


-- part 5 (button)
-- low flags: 80
-- high flags: 0004
-- rect: left=299 top=161 right=334 bottom=436
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Background
----- HyperTalk script -----
on mouseUp
  click at 321,100

end mouseUp



-- part 6 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=306 top=165 right=187 bottom=329
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: A
----- HyperTalk script -----
on mouseUp
  get the hilite of btn A
  set the hilite of btn A to not it
  click at 321,100
end mouseUp



-- part 7 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=332 top=165 right=187 bottom=355
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: B
----- HyperTalk script -----
on mouseUp
  get the hilite of btn B
  set the hilite of btn B to not it
  click at 321,100
end mouseUp



-- part 8 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=357 top=165 right=187 bottom=380
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: C
----- HyperTalk script -----
on mouseUp
  get the hilite of btn C
  set the hilite of btn C to not it
  click at 321,100
end mouseUp



-- part 9 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=382 top=165 right=187 bottom=405
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: D
----- HyperTalk script -----
on mouseUp
  get the hilite of btn D
  set the hilite of btn D to not it
  click at 321,100
end mouseUp



-- part 10 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=407 top=165 right=187 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: E
----- HyperTalk script -----
on mouseUp
  get the hilite of btn E
  set the hilite of btn E to not it
  click at 321,100
end mouseUp



-- part 11 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=306 top=189 right=211 bottom=329
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: F
----- HyperTalk script -----
on mouseUp
  get the hilite of btn F
  set the hilite of btn F to not it
  click at 321,100
end mouseUp



-- part 12 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=332 top=189 right=211 bottom=355
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: G
----- HyperTalk script -----
on mouseUp
  get the hilite of btn G
  set the hilite of btn G to not it
  click at 321,100
end mouseUp



-- part 13 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=357 top=189 right=211 bottom=380
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: H
----- HyperTalk script -----
on mouseUp
  get the hilite of btn H
  set the hilite of btn H to not it
  click at 321,100
end mouseUp



-- part 14 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=382 top=189 right=211 bottom=405
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: I
----- HyperTalk script -----
on mouseUp
  get the hilite of btn I
  set the hilite of btn I to not it
  click at 321,100
end mouseUp



-- part 15 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=407 top=189 right=211 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: J
----- HyperTalk script -----
on mouseUp
  get the hilite of btn J
  set the hilite of btn J to not it
  click at 321,100
end mouseUp



-- part 16 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=306 top=213 right=235 bottom=329
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: K
----- HyperTalk script -----
on mouseUp
  get the hilite of btn K
  set the hilite of btn K to not it
  click at 321,100
end mouseUp




-- part 17 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=332 top=213 right=235 bottom=355
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: L
----- HyperTalk script -----
on mouseUp
  get the hilite of btn L
  set the hilite of btn L to not it
  click at 321,100
end mouseUp



-- part 18 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=357 top=213 right=235 bottom=380
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: M
----- HyperTalk script -----
on mouseUp
  get the hilite of btn M
  set the hilite of btn M to not it
  click at 321,100
end mouseUp



-- part 19 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=382 top=213 right=235 bottom=405
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: N
----- HyperTalk script -----
on mouseUp
  get the hilite of btn N
  set the hilite of btn N to not it
  click at 321,100
end mouseUp



-- part 20 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=407 top=213 right=235 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: O
----- HyperTalk script -----
on mouseUp
  get the hilite of btn O
  set the hilite of btn O to not it
  click at 321,100
end mouseUp



-- part 21 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=306 top=237 right=259 bottom=329
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: P
----- HyperTalk script -----
on mouseUp
  get the hilite of btn P
  set the hilite of btn P to not it
  click at 321,100
end mouseUp



-- part 22 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=332 top=237 right=259 bottom=355
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Q
----- HyperTalk script -----
on mouseUp
  get the hilite of btn Q
  set the hilite of btn Q to not it
  click at 321,100
end mouseUp



-- part 23 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=357 top=237 right=259 bottom=380
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: R
----- HyperTalk script -----
on mouseUp
  get the hilite of btn R
  set the hilite of btn R to not it
  click at 321,100
end mouseUp



-- part 24 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=382 top=237 right=259 bottom=405
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: S
----- HyperTalk script -----
on mouseUp
  get the hilite of btn S
  set the hilite of btn S to not it
  click at 321,100
end mouseUp



-- part 25 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=407 top=237 right=259 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: T
----- HyperTalk script -----
on mouseUp
  get the hilite of btn T
  set the hilite of btn T to not it
  click at 321,100
end mouseUp



-- part 26 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=306 top=261 right=283 bottom=329
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: U
----- HyperTalk script -----
on mouseUp
  get the hilite of btn U
  set the hilite of btn U to not it
  click at 321,100
end mouseUp



-- part 27 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=332 top=261 right=283 bottom=355
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: V
----- HyperTalk script -----
on mouseUp
  get the hilite of btn V
  set the hilite of btn V to not it
  click at 321,100
end mouseUp



-- part 28 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=357 top=261 right=283 bottom=380
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: W
----- HyperTalk script -----
on mouseUp
  get the hilite of btn W
  set the hilite of btn W to not it
  click at 321,100
end mouseUp



-- part 29 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=382 top=261 right=283 bottom=405
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: X
----- HyperTalk script -----
on mouseUp
  get the hilite of btn X
  set the hilite of btn X to not it
  click at 321,100
end mouseUp



-- part 30 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=407 top=261 right=283 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Y
----- HyperTalk script -----
on mouseUp
  get the hilite of btn Y
  set the hilite of btn Y to not it
  click at 321,100
end mouseUp



-- part 32 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=357 top=285 right=307 bottom=380
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Z
----- HyperTalk script -----
on mouseUp
  get the hilite of btn Z
  set the hilite of btn Z to not it
  click at 321,100
end mouseUp



-- part 33 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=306 top=285 right=307 bottom=355
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reset
----- HyperTalk script -----
on mouseUp
  Repeat with n = 2 to 27
    set the hilite of btn n to true
  end repeat
  click at 321,100
end mouseUp


-- part 34 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=381 top=285 right=307 bottom=430
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear
----- HyperTalk script -----
on mouseUp
  Repeat with n = 2 to 27
    set the hilite of btn n to false
  end repeat
  click at 321,100
end mouseUp



-- part 35 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=344 top=308 right=330 bottom=393
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hide
----- HyperTalk script -----
on mouseUp
  set the cursor to 4
  set the lockscreen to true
  Repeat with n = 1 to 30
    set the visible of btn n to false
  end repeat
  set the visible of btn "AlphaPad" to true
  set the lockscreen to false
  click at 321,100
end mouseUp


-- part 36 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=330 top=250 right=310 bottom=385
-- title width / last selected line: 0
-- icon id / first selected line: 7387 / 7387
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AlphaPad
----- HyperTalk script -----
on mouseUp
  set the cursor to 4
  set the lockscreen to true
  repeat with n = 1 to 30
    set the visible of btn n to true
    set the hilite of btn n to false
  end repeat
  set the visible of btn "AlphaPad" to false
  set the lockscreen to false
  click at 321,100
end mouseUp



-- part 38 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=155 top=250 right=310 bottom=210
-- title width / last selected line: 0
-- icon id / first selected line: 31685 / 31685
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Give Up
----- HyperTalk script -----
on mouseUp
  Global Target, Tgtpointer

  play boing
  answer "Sorry! You Lose — Answer was: " & Target with  "Archive" or "Definition" or "Play Again"

  if it is "Archive" then
    Archive
    PlayAgain
  end if

  if it is "Play Again" then
    PlayAgain
  end if

  if it is "Definition" then
    definition
    exit mouseUp
  end if


end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=443 top=150 right=210 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 8594 / 8594
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Filters
----- HyperTalk script -----
on mouseUp
  go card "Controls"
end mouseUp



-- part 41 (field)
-- low flags: 80
-- high flags: 0004
-- rect: left=288 top=198 right=213 bottom=404
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Clickmsg


-- part 42 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=443 top=71 right=131 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 530 / 530
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Change
----- HyperTalk script -----
on mouseUp
  go to first card
end mouseUp



-- part 40 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
  put empty into card field "Message"
  hide card field "ClickMsg"
  hide card btn "OK"
  put empty into card field "Results"
  put empty into card field "Guess"
  picktarget
  show card btn "Filters"
  show card btn "Change"
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=443 top=251 right=312 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go Home
----- HyperTalk script -----
on mouseUp
  Go Home
end mouseUp



-- part 45 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=228 top=251 right=312 bottom=291
-- title width / last selected line: 0
-- icon id / first selected line: 32650 / 32650
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go Archive
----- HyperTalk script -----
on mouseUp
  Set the lockscreen to true
  Go Card "Archive"
  -- scroll the field so we can see the last item
  put the textheight of card field "Archive" into lineht
  put the rect of card field "Archive" into temp
  put (item 4 of temp) - (item 2 of temp) into fieldht
  put the number of lines of card field "Archive" into nolines
  put (nolines + 2) * lineht - fieldht into temp
  if temp < 0 then put 0 into temp
  set the scroll of card field "Archive" to temp
  Set the lockscreen to false
end mouseUp



-- part contents for card part 41
----- text -----
Click to Continue